if first character of card field "display" = 0 then play boing
else
put reg5 & card field "display" into reg5
put return & card field "display" && "=" after last line of card field "tape"
end if
put the value of reg5 into reg5
put the value of reg5 into card field "display"
put "T" into card field "operator"
put return & reg5 && "T" after last line of card field "tape"
put empty into reg5
set lockScreen to false
end mouseUp
-- part 18 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=351 top=286 right=309 bottom=409
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 0
----- HyperTalk script -----
on mouseUp
pass mouseUp
end mouseUp
-- part 20 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=26 top=40 right=320 bottom=159
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: tape
-- part 21 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=289 top=205 right=228 bottom=347
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: dateTime
----- HyperTalk script -----
on mouseUp
put return & the date && "-" && the time after last line of card field "tape"
end mouseUp
-- part 22 (button)
-- low flags: 80
-- high flags: 8004
-- rect: left=212 top=232 right=249 bottom=285
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: clearTape
----- HyperTalk script -----
on mouseUp
put "" into card field "tape"
end mouseUp
-- part 23 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=451 top=151 right=168 bottom=463
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: operator
-- part 26 (button)
-- low flags: 00
-- high flags: 2003
-- rect: left=289 top=286 right=309 bottom=316
-- title width / last selected line: 0
-- icon id / first selected line: 21847 / 21847
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: home
----- HyperTalk script -----
on mouseUp
visual effect dissolve to black
go home
end mouseUp
-- part 28 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=289 top=259 right=282 bottom=316
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
ask "Enter the problem you want to solve:"
if it <> empty then
put return & it && "=" after last line in card field "tape"
put return & value of it && "T" after last line in card field "tape"
else
play boing
end if
end mouseUp
-- part 31 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=320 top=286 right=309 bottom=347
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: off
----- HyperTalk script -----
on mouseUp
answer "Do you really want to quit HyperCard?" with "OK" or "NEVER"
if it = "OK" then doMenu "Quit HyperCard"
end mouseUp
-- part 37 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=212 top=211 right=228 bottom=285
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: saveTape
----- HyperTalk script -----
on mouseUp
global tape,keyword
ask "KeyWords:"
put it into keyword
get card field "tape"
put it into tape
go to last card
doMenu New Card
put tape into field 2
put keyword into field 1
end mouseUp
-- part 39 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=289 top=232 right=255 bottom=347
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: tape
----- HyperTalk script -----
on mouseUp
if visible of button "clearTape" = false then
show card button "clearTape"
show card button "saveTape"
else
hide card button "clearTape"
hide card button "saveTape"
end if
end mouseUp
-- part 42 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=287 top=154 right=198 bottom=344
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: about
----- HyperTalk script -----
on mouseUp
if visible of card field "about" is false then
show card field "about"
play "Harpsichord" tempo 380 "b3 c#4 d e f# g a#3 g4 f# e d c# d r f# r b r c# r b r a# r bw"
else
hide card field "about"
end if
end mouseUp
-- part 45 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=320 top=259 right=282 bottom=346
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: help
----- HyperTalk script -----
on mouseUp
go to card ID 5373
end mouseUp
-- part 46 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=5 top=24 right=227 bottom=306
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:
----- HyperTalk script -----
on mouseUp
hide card field 6
end mouseUp
-- part 50 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=419 top=40 right=89 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 27056 / 27056
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: oldTapes
----- HyperTalk script -----
on mouseUp
visual dissolve slow to gray
go to card ID 4892
end mouseUp
-- part 51 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=6 top=19 right=222 bottom=307
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: about
----- HyperTalk script -----
on mouseUp
hide card field "about"
end mouseUp
-- part 54 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=337 top=83 right=138 bottom=401
-- title width / last selected line: 0
-- icon id / first selected line: 11228 / 11228
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: pCalc V0.7
----- HyperTalk script -----
on mouseUp
go to pCalc V0.7
end mouseUp
-- part 58 (field)
-- low flags: 81
-- high flags: 6004
-- rect: left=66 top=64 right=242 bottom=454
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: howCome
----- HyperTalk script -----
on mouseUp
hide card field 6
end mouseUp
-- part contents for card part 46
----- text -----
pCalc, a paper tape calculator, is this authors' first stackware effort.
pCalc will function as a traditional calculator for the four common math operators:
'+' (plus), '-' (minus), '*' (multiply) and '/' (divide).
A calculator isn't really much more than a programmer's exercise under HyperCard due to the excellant math 'abilities' inherent in the 'Message Box'. To make this stackware more useful and in keeping with HyperCard's information handling nature, I've added the ability to generate 'paper tape' records during a pCalc session. If desired, these tapes may be 'filed' for later retrieval.
Charles M. Davis
15SEP87 (V 0.6)
-- part contents for card part 51
----- text -----
pCalc, a paper tape calculator, is this authors' first stackware effort.
pCalc will function as a traditional calculator for the four common math operators:
'+' (plus), '-' (minus), '*' (multiply) and '/' (divide).
A calculator isn't really much more than a programmer's exercise under HyperCard due to the excellant math 'abilities' inherent in the 'Message Box'. To make this stackware more useful and in keeping with HyperCard's information handling nature, I've added the ability to generate 'paper tape' records during a pCalc session. If desired, these tapes may be 'filed' for later retrieval.
Charles M. Davis
17SEP87 (V 0.7)
-- part contents for card part 58
----- text -----
How come?
ΓÇó mouse-driven entry seems slow in this stack,
ΓÇó the only book that I can find on HyperCard seems to be missing things (where's the information on lockMessage?), and
ΓÇó folks don't always compact stacks and pack them before they upload.
Sharing information is what HyperCard should be all about. That's exciting!! I'd really like to see what some of you can do to the 'inside' of pCalc to improve it. Just, please, leave my name in it -- somewhere.
